home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 35 / PC Gamer IT CD 35 2-2.iso / STARDEMO / Starsiege_ATR2.exe / Starsiege / Missions.vol / SWARM_Mai_Lay_Dan.cs < prev    next >
Text File  |  1998-07-30  |  14KB  |  588 lines
  1. //
  2. // tagStdlib.cs
  3. //
  4.  
  5.  
  6. $snuffValue           = 0;
  7. $chokeValue            = 0;
  8. $sackValue            = 0;
  9. $winScore            = 50;
  10. $tagWon                = 0;
  11. $healTriggerReady    = true;
  12. $ammoTriggerReady    = true;
  13.  
  14.  
  15. //----------------------------------------------
  16.  
  17.  
  18.  
  19. function setDefaultMissionOptions()
  20. {
  21.    $server::AllowTeamRed = true;
  22.    $server::AllowTeamBlue = false;
  23.    $server::AllowTeamYellow = true;
  24.    $server::AllowTeamPurple = false;
  25.  
  26.    $server::TeamPlay = true;
  27.    $server::AllowDeathmatch = false;
  28.    $server::AllowTeamPlay = true;    
  29. }
  30.  
  31. function onMissionStart(%playerNum)
  32. {
  33.     setKillValues();
  34.     displayKillValues();
  35.  
  36.     //reinitialize scores of players who were in previous game
  37.     
  38.     %count = playerManager::getPlayerCount();
  39.     for(%i = 0; %i < %count; %i = %i + 1)
  40.     {
  41.         %curPlayerNum = playerManager::getPlayerNum(%i);
  42.         initStats(%curPlayerNum);
  43.     }
  44.  
  45.     //Make first person to enter sim IT
  46.     
  47.     dataStore(0, strcat(%playerNum, "isIt"), "Yes");
  48.     wallDim(strcat(getName(%playerNum), " is now IT!"));
  49.     boundryCheck();
  50.     
  51. }        
  52.         
  53. //-------------------------------------------------------------
  54. function player::onAdd(%playerNum)
  55. {
  56.    setKillValues();
  57.    displayKillValues();
  58.    initStats(%playerNum);
  59.  
  60.    chat(%playerNum,0, strcat("Welcome to Starsiege SWARM, ", getName(%playerNum), ". Here are the rules: "));
  61.    chat(%playerNum,0, strcat("- You get " , $sackValue, " point(s) for SACKING 'IT'."));
  62.    chat(%playerNum,0, strcat("- You get ", $snuffValue, " points for SNUFFING someone while you are 'IT'."));
  63.    chat(%playerNum,0, strcat("- You CHOKE if 'IT' kills you and you lose ", $chokeValue, " point(s)."));
  64.    chat(%playerNum,0, "- You become 'IT' by sacking 'IT'.");
  65.    chat(%playerNum,0, strcat("- The first player to reach ", $winScore, " points wins the game."));
  66.    
  67. }
  68.  
  69. //-------------------------------------------------------------
  70. function player::onRemove(%playerNum)
  71. {
  72.       setKillValues();
  73.     displayKillValues();
  74.       
  75.       
  76.       if(%playerNum == getItNum())
  77.        {
  78.          %newItNum = getHighScorePlayerNum(%playerNum);
  79.  
  80.            if(%newItNum != "" && %newItNum != 0)
  81.         {
  82.               dataStore(0, strcat(%newItNum, "isIt"), "Yes" );
  83.               wall(strcat(getName(%newItNum), " is now IT!"));
  84.             
  85.             %vehicleId = playerManager::playerNumToVehicleId(%newItNum);
  86.             setTeam(%vehicleId, RED);
  87.             setVehicleSpecialIdentity(%vehicleId, true, RED);
  88.  
  89.             resetAmmoTrigger(%newItNum);
  90.             resetHealTrigger(%newItNum);
  91.            }
  92.     }
  93.     
  94.     cleanUp(%playerNum);
  95.     
  96.     
  97. }
  98.  
  99. //-------------------------------------------------------------
  100. function vehicle::onAdd(%vehicleId)
  101. {
  102.     setTeam(%vehicleId, YELLOW);
  103.     
  104.     //if no one is IT, make this person IT
  105.     if(getItNum() == false)
  106.     {
  107.         %playerNum = playerManager::vehicleIdToPlayerNum(%vehicleId);
  108.         
  109.         dataStore(0, strcat(%playerNum, "isIt"), "Yes" );
  110.         wall(strcat(getName(%playerNum), " is now IT!"));
  111.     }
  112.     
  113.        if(playerManager::vehicleIdToPlayerNum(%vehicleId) == getItNum())
  114.     {
  115.         setTeam(%vehicleId, RED);
  116.         setVehicleSpecialIdentity(%vehicleId, true, RED);
  117.     }
  118. }
  119.  
  120. //----------------------------------------------
  121.  
  122. function vehicle::onDestroyed(%destroyedId, %destroyerId)
  123. {
  124.     %destroyerNum = playerManager::vehicleIdToPlayerNum(%destroyerId);
  125.     %destroyedNum = playerManager::vehicleIdToPlayerNum(%destroyedId);      
  126.     
  127.     if($tagWon == 1)
  128.     {
  129.         return;
  130.     }
  131.         
  132.     if(itKilledSelf(%destroyedNum, %destroyerNum))
  133.     {
  134.         return;
  135.     }
  136.     
  137.     if(itKilledPlayer(%destroyedNum, %destroyerNum))
  138.     {
  139.         return;
  140.     }
  141.     
  142.     if(playerKilledIt(%destroyedNum, %destroyerNum))
  143.     {
  144.         
  145.         setTeam(%destroyerId, RED);
  146.         
  147.         setVehicleSpecialIdentity(%destroyedId, false);
  148.         setVehicleSpecialIdentity(%destroyerId, true, RED);
  149.         return;
  150.     }
  151.     
  152. //     if we got here, a not-it player must have killed another not-it player
  153. //     which is ignored
  154. }
  155.  
  156. //--------------------------------------------------------
  157. function itKilledSelf(%destroyedNum, %destroyerNum)
  158. {
  159.     // if there is only one player, keep that player IT
  160.     
  161.     if(playerManager::getPlayerCount() == 1)
  162.        {
  163.         return true;
  164.     }
  165.  
  166.  
  167.     if(%destroyerNum == getItNum() && %destroyedNum == getItNum())
  168.     {
  169.         %newItNum = getHighScorePlayerNum(%playerNum);
  170.         
  171.            if(%newItNum != "" && %newItNum != 0)
  172.         {
  173.               dataStore(0, strcat(%destroyedNum, "isIt"), "No" );
  174.               dataStore(0, strcat(%newItNum, "isIt"), "Yes" );
  175.               
  176.               wall(strcat(getName(%newItNum), " is now IT!"));
  177.  
  178.             %vehicleId = playerManager::playerNumToVehicleId(%newItNum);
  179.             
  180.             setTeam(%vehicleId, RED);
  181.             setVehicleSpecialIdentity(%vehicleId, true, RED);
  182.         
  183.             resetAmmoTrigger(%newItNum);
  184.             resetHealTrigger(%newItNum);
  185.            }
  186.  
  187.         return true;
  188.     }
  189.     return false;
  190. }
  191.  
  192. //---------------------------------------------------------
  193. function itKilledPlayer(%destroyedNum, %destroyerNum)
  194. {
  195.     
  196.     if(%destroyerNum == getItNum())
  197.     {
  198.         %snuffKey    = strcat(%destroyerNum, "snuff");
  199.         %chokeKey     = strcat(%destroyedNum, "choke");
  200.         
  201.         dataStore(0, %snuffKey, 1 + dataRetrieve(0, %snuffKey));
  202.         dataStore(0, %chokeKey, 1 + dataRetrieve(0, %chokeKey));
  203.  
  204.         if(playerWonGame(%destroyerNum))
  205.         {
  206.             return true;
  207.         }
  208.         
  209.         else
  210.         {
  211.             wallDim(strcat(getName(%destroyedNum), " was Snuffed by IT!"));
  212.             %object = playerManager::playerNumToVehicleId(%destroyedNum);
  213.             chat(%object, 0, strcat(getName(%destroyedNum), " you CHOKED!"));
  214.         }
  215.         return true;
  216.     }
  217.     return false;
  218. }
  219.  
  220. //-------------------------------------------------------
  221. function playerKilledIt(%destroyedNum, %destroyerNum)
  222. {
  223.     
  224.     if(%destroyedNum == getItNum())
  225.     {    
  226.         %newItKey = strcat(%destroyerNum, "isIt");
  227.         %oldItKey = strcat(%destroyedNum, "isIt");
  228.         %sackKey  = strcat(%destroyerNum, "sack");
  229.  
  230.         dataStore(0, %oldItKey, "No");
  231.         dataStore(0, %newItkey, "Yes");
  232.         dataStore(0, %sackKey, 1 + dataRetrieve(0, %sackKey));
  233.         
  234.         if(playerWonGame(%destroyerNum))
  235.         {
  236.             return true;
  237.         }
  238.         
  239.         else
  240.         {    
  241.             wallDim(strcat(getName(%destroyerNum), " Sacked IT!"));
  242.               wall(strcat(getName(%destroyerNum), " is now IT!"));
  243.         }
  244.         
  245.         resetAmmoTrigger(%destroyerNum);
  246.         resetHealTrigger(%destroyerNum);
  247.  
  248.         
  249.         return true;
  250.     }
  251.     return false;
  252. }
  253.  
  254. //--------------------------------------------------------
  255. function getItNum()
  256. {
  257.     %count = playerManager::getPlayerCount();
  258.     for(%i = 0; %i < %count; %i = %i + 1)
  259.     {
  260.         %curPlayerNum = playerManager::getPlayerNum(%i);
  261.         if(dataRetrieve(0, strcat(%curPlayerNum, "isIt")) == "Yes")
  262.         {
  263.             return %curPlayerNum;
  264.         }    
  265.     }
  266.     //return false if no one is IT
  267.     return false;
  268. }
  269.  
  270. //--------------------------------------------------------
  271. function getHighScorePlayerNum(%playerNum)
  272. {
  273.     %highScore = 0;
  274.     %count = playerManager::getPlayerCount();
  275.     %highScorePlayerNum = "";
  276.     
  277.     for(%i = 0; %i < %count; %i = %i + 1)
  278.     {
  279.         %curPlayerNum = playerManager::getPlayerNum(%i);
  280.         %score = getPlayerScore(%curPlayerNum);
  281.         if(%curPlayerNum != %playerNum && %score >= %highScore)
  282.         {
  283.             %highScore = %score;
  284.             %highScorePlayerNum = %curPlayerNum;
  285.         }
  286.     }
  287.     
  288.     return %highScorePlayerNum;    
  289. }
  290.  
  291. //--------------------------------------------------------
  292. function initStats(%playerNum)
  293. {
  294.     dataStore(0, strcat(%playerNum, "snuff"), 0 );
  295.     dataStore(0, strcat(%playerNum, "choke"),0);
  296.     dataStore(0, strcat(%playerNum, "sack"),0);
  297.     dataStore(0, strcat(%playerNum, "isIt"),"No");
  298. }
  299.  
  300. //-------------------------------------------------------
  301. function playerWonGame(%playerNum)
  302. {
  303.     if(getPlayerScore(%playerNum) >= $winScore)
  304.     {
  305.         $tagWon = 1;
  306.         
  307.         wall("GAME OVER");
  308.         wall(strcat(getName(%playerNum), " won the Game!")); 
  309.         
  310.         %missionEnd = strcat(getName(%playerNum), " won the Game!");
  311.         messageBox(0, %missionEnd);
  312.  
  313.         %orderFade = "fadeEvent(0, out, 5, 0,0,0 );";
  314.         schedule(%orderFade, 5.0);
  315.         
  316.         schedule("missionEndConditionMet();", 10.0);
  317.  
  318.         return true;
  319.     }
  320.     return false;
  321. } 
  322.  
  323. //--------------------------------------------------------
  324. function cleanUp(%playerNum)
  325. {
  326.     dataRelease(0, strcat(%playerNum, "snuff"));
  327.     dataRelease(0, strcat(%playerNum, "choke"));
  328.     dataRelease(0, strcat(%playerNum, "sack"));
  329.     dataRelease(0, strcat(%playerNum, "isIt"));
  330. }
  331.  
  332. //--------------------------------------------------------
  333. //--Score board stuff
  334.  
  335. function getPlayerScore(%a)
  336. {
  337.     return (getPlayerSnuffs(%a) * $snuffValue + getPlayerSacks(%a) * $sackValue - getPlayerChokes(%a) * $chokeValue); // - getPlayerFriendlyKills(%a) * $friendlyKillValue);
  338. }
  339.  
  340. function getPlayerSnuffs(%playerNum)
  341. {
  342.     return dataRetrieve(0, strcat(%playerNum, "snuff"));
  343. }
  344.  
  345. function getPlayerSacks(%playerNum)
  346. {
  347.     return dataRetrieve(0, strcat(%playerNum, "sack"));    
  348. }
  349.  
  350. function getPlayerItStatus(%playerNum)
  351. {
  352.     return dataRetrieve(0, strcat(%playerNum, "isIt"));
  353.  
  354. }
  355.  
  356. function getPlayerChokes(%playerNum)
  357. {
  358.     return dataRetrieve(0, strcat(%playerNum, "choke"));
  359. }
  360.  
  361. //----------------------------------------------
  362. function initScoreboard()
  363. {
  364.    deleteVariables("$ScoreBoard::PlayerColumn*");
  365.    deleteVariables("$ScoreBoard::TeamColumn*");
  366.  
  367.    // Player ScoreBoard column headings
  368.    $ScoreBoard::PlayerColumnHeader1 = "SCORE";
  369.    $ScoreBoard::PlayerColumnHeader2 = "IT";
  370.    $ScoreBoard::PlayerColumnHeader3 = "SNUFFS";
  371.    $ScoreBoard::PlayerColumnHeader4 = "SACKS";
  372.    $ScoreBoard::PlayerColumnHeader5 = "CHOKES";
  373.    $ScoreBoard::PlayerColumnHeader5 = "PING";
  374.    
  375.    //Player ScoreBoard column functions
  376.    $ScoreBoard::PlayerColumnFunction1 = "getPlayerScore";
  377.    $ScoreBoard::PlayerColumnFunction2 = "getPlayerItStatus";
  378.    $ScoreBoard::PlayerColumnFunction3 = "getPlayerSnuffs";
  379.    $ScoreBoard::PlayerColumnFunction4 = "getPlayerSacks";
  380.    $ScoreBoard::PlayerColumnFunction5 = "getPlayerChokes";
  381.    $ScoreBoard::PlayerColumnFunction5 = "getPing";
  382.  
  383.    // tell server to process all the scoreboard definitions defined above
  384.    serverInitScoreBoard();
  385.     
  386. }
  387. // ------TRIGGER OVERLOADS-------------
  388. //--------------------------------------
  389. function heal::trigger::onEnter(%this, %object)
  390. {
  391.     %playerNum = playerManager::vehicleIdToPlayerNum(%object);
  392.     
  393.     //playSound(%object, IDCV_POWER_ON);
  394.     chat(%object, 0, "Entering repair area.");
  395.     
  396.     if(%playerNum == getItNum() && $healTriggerReady == true)
  397.     {    
  398.         healObject(%object, 10000.0);
  399.         healObject(%object, 10000.0);
  400.         healObject(%object, 10000.0);
  401.         $healTriggerReady = false;
  402.         
  403.         initResetHealTimer(%playerNum);
  404.         
  405.     }
  406. }
  407.  
  408.  
  409. //--------------------------------------
  410. function reload::trigger::onEnter(%this, %object)
  411. {
  412.     %playerNum = playerManager::vehicleIdToPlayerNum(%object);
  413.     
  414.     //playSound(%object, IDCV_POWER_ON);
  415.     chat(%object, 0, "Entering reload area.");
  416.     
  417.     if(%playerNum == getItNum() && $ammoTriggerReady == true)
  418.     {    
  419.         reloadObject(%object, 100.0);
  420.         $ammoTriggerReady = false;
  421.         
  422.         initResetAmmoTimer(%playerNum);
  423.  
  424.     }
  425. }
  426.  
  427.  
  428. //---------------------------------------------
  429. function initResetHealTimer(%playerNum)
  430. {
  431.     %playerCount = playerManager::getPlayerCount();
  432.     %timer = 70 - ((%playerCount - 1) * 5);
  433.  
  434.     if( %timer < 30)
  435.     {    
  436.         %timer = 30;
  437.     }
  438.  
  439.     %order = strcat("resetHealTrigger(", %playerNum, ");");
  440.     schedule (%order, %timer);
  441. }
  442.  
  443. //-----------------------------------------------
  444. function initResetAmmoTimer(%playerNum)
  445. {
  446.     %playerCount = playerManager::getPlayerCount();
  447.     %timer = 70 - ((%playerCount - 1) * 5);
  448.  
  449.     if( %timer < 30)
  450.     {    
  451.         %timer = 30;
  452.     }
  453.  
  454.     %order = strcat("resetAmmoTrigger(", %playerNum, ");");
  455.     schedule (%order, %timer);
  456. }
  457.     
  458. //---------------------------------------------
  459. function resetAmmoTrigger(%playerNum)
  460. {
  461.     %object = playerManager::playerNumToVehicleId(%playerNum);
  462.  
  463.     
  464.     if (%playerNum == getItNum())
  465.     {
  466.         $ammoTriggerReady = true;
  467.         chat(%object, 0, "RELOAD PAD IS READY!");
  468.     }
  469. }
  470.         
  471. //---------------------------------------------
  472. function resetHealTrigger(%playerNum)
  473. {
  474.     %object = playerManager::playerNumToVehicleId(%playerNum);
  475.  
  476.     if (%playerNum == getItNum())
  477.     {
  478.         $healTriggerReady = true;
  479.         chat(%object, 0, "HEAL PAD IS READY!");
  480.     }
  481. }
  482.  
  483. //--------------------------------------
  484.  
  485. function setKillValues()
  486. {    
  487.     %playerCount = playerManager::getPlayerCount();
  488.  
  489.     if(%playerCount <= 2)
  490.     {
  491.         $snuffValue = 2;
  492.         $sackValue     = 1;
  493.         $chokeValue = 0;
  494.         return;
  495.     }
  496.     
  497.        if(%playerCount == 3)
  498.     {
  499.         $snuffValue = 3;
  500.         $sackValue     = 1;
  501.         $chokeValue = 0;
  502.         return;
  503.     }
  504.     
  505.     if(%playerCount == 4)
  506.     {
  507.         $snuffValue = 4;
  508.         $sackValue     = 2;
  509.         $chokeValue = 1;
  510.         return;
  511.     }
  512.     
  513.     if(%playerCount == 5)
  514.     {
  515.         $snuffValue = 6;
  516.         $sackValue     = 3;
  517.         $chokeValue = 2;
  518.         return;
  519.     }
  520.     
  521.     if(%playerCount == 6)
  522.     {
  523.         $snuffValue = 8;
  524.         $sackValue     = 4;
  525.         $chokeValue = 2;
  526.         return;
  527.     }
  528.     
  529.     if(%playerCount >= 7)
  530.     {
  531.         $snuffValue = 10;
  532.         $sackValue     = 4;
  533.         $chokeValue = 2;
  534.         return;
  535.     }                    
  536.     
  537.     return;
  538. }
  539.  
  540. //------------------------------------------------------
  541.  
  542. function displayKillValues()
  543. {
  544.     wallDim(strcat("POINT UPDATE: SNUFF = ", $snuffValue, " | SACK = ", $sackValue, " | CHOKE = ", $chokeValue));    
  545. }
  546.  
  547. //---------------------------------------------------
  548. function boundryCheck()
  549. {
  550.     %itNum = getItNum();
  551.     %itName = getName(%itNum);
  552.     %itVehicle = playerManager::playerNumToVehicleId(%itNum);
  553.  
  554.     %distance = getDistance("MissionGroup/CenterPoint", %itVehicle);
  555.     
  556.     
  557.     if ( %distance >= 2000.0 )
  558.     {    
  559.         wallDim(strcat(%itName, " has run away!"));
  560.         wallDim(strcat("Say goodbye to your score ", %itName, "!"));
  561.         
  562.         // remove sacks and snuffs but keep chokes
  563.         
  564.         %snuffKey    = strcat(%itNum, "snuff");
  565.         %itKey         = strcat(%itNum, "isIt");
  566.         %sackKey      = strcat(%itNum, "sack");
  567.  
  568.         dataStore(0, %snuffKey, 0);
  569.         dataStore(0, %itKey, "No");
  570.         dataStore(0, %sackKey, 0);
  571.  
  572.         // select new It
  573.  
  574.         %newItNum = getHighScorePlayerNum(%playerNum);
  575.  
  576.            if(%newItNum != "" && %newItNum != 0)
  577.         {
  578.               dataStore(0, strcat(%newItNum, "isIt"), "Yes" );
  579.               wall(strcat(getName(%newItNum), " is now IT!"));
  580.            }
  581.     }
  582.  
  583.     %order = "boundryCheck();";
  584.     schedule(%order, 10.0);
  585.  
  586. }    
  587.  
  588.